home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / windows.arc / DEMODEFS.INC < prev    next >
Encoding:
Text File  |  1985-02-23  |  1.6 KB  |  50 lines
  1. Procedure Select_Window(Win_Num: Integer);
  2. Const Windows: Array[1..9,1..8] of integer =((5,5,40,15,12,0,2,0),
  3. (43,5,73,15,10,0,3,12),
  4. (5,16,73,23,9,0,1,0),
  5. (0,0,0,0,0,0,0,0),
  6. (0,0,0,0,0,0,0,0),
  7. (0,0,0,0,0,0,0,0),
  8. (0,0,0,0,0,0,0,0),
  9. (0,0,0,0,0,0,0,0),
  10. (0,0,0,0,0,0,0,0));
  11.  
  12.   Title:Array[1..9] of string[80] = ('',
  13. 'TEST TITLE',
  14. '',
  15. '',
  16. '',
  17. '',
  18. '',
  19. '',
  20. '');
  21.  
  22. Begin
  23.      If (windows[win_num,3] > 0) and (Win_num > Stack_top) then
  24.         Begin
  25.             Add_Window(Windows[Win_Num,1],
  26.                        Windows[Win_Num,2],
  27.                        Windows[Win_Num,3],
  28.                        Windows[Win_Num,4],
  29.                        Windows[Win_Num,5],
  30.                        Windows[Win_Num,6],
  31.                        Windows[Win_Num,7]);
  32.                        If Title[win_num] <> '' then
  33.                                 Window_Title(Title[Win_num],Windows[Win_Num,8])
  34.          end
  35.      else
  36.          If windows[Win_num,4] > 0 then
  37.                 begin
  38.                      Imig[Last_window_num].w1:=wherex;
  39.                      Imig[Last_window_num].w2:=wherey;
  40.                      Window(1,1,80,25);
  41.                      GotoXY(1,1);
  42.                      Window(Imig[Win_num].x1,Imig[Win_num].y1,
  43.                             Imig[win_num].x2,Imig[win_num].y2);
  44.                      Textcolor(Imig[win_num].c1+(Imig[win_num].b1*16));
  45.                      GotoXY(1,1);
  46.                      GotoXY(Imig[win_num].w1,Imig[win_num].w2);
  47.                      Last_Window_Num:=Win_Num
  48.                 End
  49. End;
  50.